#pragma rtGlobals=1		// Use modern global access method.
///////////////////////////////////////////////////////////////////////////////////////////
//nmをeVに変換するプログラム(2003.07.23)														//
//																		Edit：タナカサトシ		//
//			�@変換したいウェーブを複数選択														//
//			�A対応する横軸をひとつ選択															//
//			�B出力Yウェーブの添え字を入力														//
//			�C出力Xウェーブ名を入力																//
//																								//
///////////////////////////////////////////////////////////////////////////////////////////

macro convert_nm_to_eV()
		variable v1
		v1=convert_nm_to_eV_2()
endmacro

function convert_nm_to_eV_2()
	//パネルの作成
	//その前に「panelC」が存在するか確かめる。
	variable v1,v2,v3
	v1=strlen(winlist("panelC",";","WIN:64"))
	if(v1==0)	//「panelC」が存在しないとき
		//障害となる他のパネルが稼動していないことを確認する
		//「panelA」「panelB」の存在を調べる。
		v2=strlen(winlist("panelA",";","WIN:64"))
		if(v2==0)
			//「panelA」が存在しないとき、「panelB」の存在を調べる。
			v3=strlen(winlist("panelB",";","WIN:64"))
			if(v3==0)
				//「panelA」「panelB」「panelC」全て存在しないとき、「panelC」の作成作業に移行する
				print "「panelC」を作成します。"
				/////////////////////////////////////////
				panelC_Open()			//「panelC」を作成
				/////////////////////////////////////////
			else
				//「panelC」「panelA」は存在しないけれど、「panelB」が存在するとき、エラーをだして中断する
				doalert 0,"他の解析メニューによるパネルが動作しています。他のパネルを閉じてからやり直してください。"
				dowindow/F panelB
			endif
		else
			//「panelA」が存在するとき、エラーをだして中断する
			doalert 0,"他の解析メニューによるパネルが動作しています。他のパネルを閉じてからやり直してください。"
			dowindow/F panelA
		endif
	else
		////「panelC」が存在するとき、エラーをだして中断する
		doalert 0,"すでに「panelC」が開いてます。閉じてから実行してください。"
		dowindow/F panelC
	endif
	//以上、「panelC」作成前の、確認作業。
end
//
function panelC_Open()
	//「panelC」を作成します。
	newpanel/k=2/W=(200,80,500,380) as "panelC:(nm)から(eV)に変換します。"	//k=2（ウィンドウを閉じるボタンを無効）
	DoWindow/C panelC	//リネイム
	//説明文�@
	titlebox tib0,title="�@変換したいYウェーブを選択してください。（Shift）＋（Click）",frame=0,pos={10,5}
	//説明文�A
	titlebox tib1,title="�A対応するXウェーブを1つ選択してください。",frame=0,pos={10,220}
	//ポップアップメニューを作成（X軸ウェーブ選択用）
	PopupMenu pmnu_x,pos={235,236},bodyWidth=280,mode=1,value=WaveList("*",";","")
	PopupMenu pmnu_x, disable=0
	//ラインの配置
	DrawLine 10,260,280,260
	//ボタンの配置
	Button button_exit,pos={50,275},size={50,18},proc=But_close_panelC,title="閉じる"
	Button button_exit,help={"このウィンドウを閉じます。"}
	Button button_cancel,pos={130,275},size={50,18},proc=But_help,title="ヘルプ"
	Button button_cancel,help={"ヘルプを表示します。"}
	Button button_next,pos={220,275},size={50,18},proc=But_next,title="次へ"
	Button button_next,help={"次の作業に移行します。"}
	
	//リストボックスの配置///////////////////////////////////////////////////////////////
	//そのまえに、ウェーブ名のリストから、ウェーブ名が要素であるテキストウェーブを作成する
	string/g wlist=WaveList("*",";","")	//root:上の全てのウェーブをリストで出力→グローバル変数で保存
	variable NumberOfWaves=ItemsInList(wlist)	//いくつウェーブがあるか取得
	make/O/T/N=(NumberOfWaves) wlistwave		//ウェーブ名が要素のテキストウェーブを作成
	make/O/N=(NumberOfWaves) sjack			//wlistwaveに対応するリストの選択状態を保持する数値ウェーブ
	wave/T w1=wlistwave
	wave w2=sjack
	variable v1=0
	do
		w1[v1]=StringFromList(v1,wlist)
		w2[v1]=0
		v1=v1+1
	while(v1<NumberOfWaves)
	/////////////////////////////////////////////////////////////////////////////////////
	listbox lsb_ywnamelist,pos={5,25},size={280,190},listwave=w1,selWave=w2,frame=2,mode=4
	PauseForUser panelC
end
		//************************************************************************
		//従属関数////////////////////////////////////////////////////////////////
		Function But_close_panelC(ctrlName) : ButtonControl
			//「閉じる」ボタンが押された時
			String ctrlName
			killwaves sjack,wlistwave
			KillStrings/Z wlist
			DoWindow/K Notebook_convert_nm_to_eV_help
			DoWindow/K panelC		//パネルCの削除
		End
		//*************************************************************************
		Function But_help(ctrlName) : ButtonControl
			//「ヘルプ」ボタンが押された時、テキストボックスを配置して、説明文を表示させます。
			String ctrlName
			if(strlen(WinList("Notebook_convert_nm_to_eV_help", ";", "WIN:16"))==0)
				//すでにヘルプノートブックが開かれていないとき、作成
				NewNotebook/K=1/W=(380,65,610,360)/N=Notebook_convert_nm_to_eV_help/F=0 as "『(nm)から(eV)に変換します。』のヘルプ"
				//内容を表示させる関数へ移動
				convert_nm_to_eV_help_OPEN()
			else	//すでに、ヘルプノートブックが開かれているとき、最前面に。
				DoWindow/F Notebook_convert_nm_to_eV_help
			endif
		End
		//**************************************************************************
		Function But_next(ctrlName) : ButtonControl
			//「次へ」ボタンが押された時
			String ctrlName
			//選択されたウェーブリストを返す
			String New_Wlist=makeNewWlist()
			//選択がゼロの時、ダイアログをだして注意する
			if(ItemsInList(New_Wlist)==0)
				Doalert 0,"変換させたいYウェーブを選択してください。"
			else
				//変換後のYウェーブ名につけ足す添え字を入力してもらう。
				ControlInfo pmnu_x
				string olddx=S_Value	//変換前のXウェーブ名を取得
				string nuXnuYsoeji=input_nuX_nuY(olddx)	//ダイアログの表示→入力文字のリストを返す（"_eV;_new"）
				//「キャンセル」がクリックされたか調べる
				if(strlen(nuXnuYsoeji)==0)
					print "	ユーザーによりキャンセルされました。（1)"
				else
					string nuYsoeji=StringFromList(0,nuXnuYsoeji)	//分解作業
					string nuX=StringFromList(1,nuXnuYsoeji)			//分解作業
					//確認ダイアログの表示→GO･･･1、OUT･･･2
					variable switch_12=bunki_12(New_Wlist,nuYsoeji,olddx,nuX)
					if(switch_12==1)	//GOサイン
						convert_nm_to_eV_3(New_Wlist,nuYsoeji,olddx,nuX)	//最終処理関数へ
						print ItemsInList(New_Wlist),"個変換しました。"
						//最後に「閉じる」ボタンと同じ処理をする。
						But_close_panelC("d")
					else
						print "ユーザーによりキャンセルされました。"
					endif
				endif
			endif
		End
		//**************************************************************
		Function/S makeNewWlist()
			//ウェーブ名リストから現在選択されているものだけ抽出する関数
			String/g wlist
			variable maxItem=ItemsInList(wlist)
			String NewWlist=wlist
			wave w2=sjack
			variable v1=0
			do
				if(w2[v1]==0)
					NewWlist=removeFromList(StringFromList(v1,wlist),NewWlist)
				endif
				v1=v1+1
			while(v1<maxItem)
			return NewWlist
		end
		//******************************************************************
		function/S input_nuX_nuY(oldx)
			//ダイアログを表示して、新しいYウェーブ名の添え字と、新しいXウェーブ名を入力してもらう
			//さらに、入力文字列をリストで出力
				string oldx
				String newYsoeji="_new"
				String newX=oldx+"_eV"
				Prompt newYsoeji,"変換後のYウェーブ名への添え字を入力してください。"
				Prompt newX,"変換後のXウェーブ名の入力してください。"
				DoPrompt "変換後のYウェーブ名への添え字入力と、変換後のXウェーブ名の入力", newYsoeji, newX
				oldx=newYsoeji+";"+newX+";"
				if(V_flag==1)
					oldx=""
				endif
				return oldx
		end
		//*******************************************************************
		function bunki_12(NuWaveList,newYsoeji,oldx,newX)
			//確認ダイアログを表示して、GOサイン（1）と、キャンセル(2)を返す。
				string NuWaveList
				string newYsoeji
				string oldx
				string newX
				//
					string text0="Yウェーブに関して･･･"
					string text1="「"+StringFromList(0,NuWaveList)+"」→"+"「"+StringFromList(0,NuWaveList)+newYsoeji+"」\r"
					string text2="　　　　　　　　 ･･･"
					string text3="「"+StringFromList(1,NuWaveList)+"」→"+"「"+StringFromList(1,NuWaveList)+newYsoeji+"」\r"
					string text4="Xウェーブに関して･･･"
					string text5="「"+oldx+"」→"+"「"+newX+"」\r"
					string text6="に変換します。よろしいですか？"
				//
				DoAlert 1,text0+text1+text2+text3+text4+text5+text6
				return V_Flag
		end
	//******************************************************************************	
	function convert_nm_to_eV_3(NuWaveList,newYsoeji,oldx,newX)
		//最終処理関数。ここで、初めて、変換される。
				string NuWaveList	//変換前のYウェーブ名リスト
				string newYsoeji	//変換後のYウェーブ名に対する添え字
				string oldx			//変換前のXウェーブ名
				string newX			//変換後のXウェーブ名
		//新Xウェーブの作成
		wave ox=$oldx
		duplicate/O ox,$newX
		wave nx=$newX
		nx=1240/ox
		//新Yウェーブの作成
		string oldY,newY		//旧Yウェーブ名、新Yウェーブ名を保持
		variable pt
		variable v1=0
		do
			oldY=StringFromList(v1,NuWaveList)
			newY=StringFromList(v1,NuWaveList)+newYsoeji
			wave w1=$oldY
			duplicate/O w1,$newY
			wave w2=$newY
			pt=0
			do
				w2[pt]=5.034*ox[pt]*ox[pt]*w1[pt]/1000000
				pt=pt+1
			while (pt<numpnts(w1)+1)
			v1=v1+1
		while(v1<ItemsInList(NuWaveList))
	end
	//*******************************************************************************
	function convert_nm_to_eV_help_OPEN()
		//ヘルプテキストウィンドウ内の内容を表示させる関数
		String nb = "Notebook_convert_nm_to_eV_help"
		
	Notebook $nb defaultTab=20, statusWidth=238, pageMargins={72,72,72,72}
	Notebook $nb font="ＭＳ ゴシック", fSize=10, fStyle=0, textRGB=(0,0,0)
	Notebook $nb text="＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿\r"
	Notebook $nb text="『(nm)から(eV)に変換します。』のヘルプ\r"
	Notebook $nb text="￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣\r"
	Notebook $nb text="\t\t\t\t\t\t\t２００３．０７\r"
	Notebook $nb text="　このマクロは、おもに、PLデータをnm表\示か\r"
	Notebook $nb text="ら、eV表\示へ簡単に変換することを目的に作ら\r"
	Notebook $nb text="れました。操作方法は、視覚的にマウスで操作\r"
	Notebook $nb text="できるように、簡単になっています。\r"
	Notebook $nb text="\r"
	Notebook $nb text="　変換に関する式は、\r"
	Notebook $nb text="\r"
	Notebook $nb text="\t横軸変換\tN(nm)→E(eV)=1240/N\r"
	Notebook $nb text="\t\r"
	Notebook $nb text="\t縦軸変換\tIin(nmあたりの強度)\r"
	Notebook $nb text="\t\t\t\t→\r"
	Notebook $nb text="\t\t\t\tIout(eVあたりの強度)\r"
	Notebook $nb text="\t\t\t\t=5.034*N^2*Iin/1000000\t\t\t\t\r"
	Notebook $nb text="　です。\r"
	Notebook $nb text="\r"
	Notebook $nb text="5.034は、1/hc\t\r"
	Notebook $nb text="\t\t{h=6.626*10^-34(プランク定数)}\r"
	Notebook $nb text="\t\t{c=2.998*10^8(光速m/s)}\r"
	Notebook $nb text="から導かれる定数です。\r"
	Notebook $nb text="1000000で割っているのは、値が大きくなるの\r"
	Notebook $nb text="を防ぐためです。\r"
	Notebook $nb text="基本的に、Iout=(N^2/hc)*Iinです。\r"

	Notebook $nb selection={startOfFile, startOfFile}
	end
	//********************************************************************************
///////////////////////////以上、『convert_nm_to_eV()』のプログラム////////////////////

////////////////////////////////////////////////////////////////////
function eee()		/////////////////////////////////////////////////
	//参考プログラム（実際には使用されていない。）/////////////////////
	string name2
	variable tmp,ii,pt
	String namep,wavein,waveout
	
	wave wl = wl780
	Duplicate wl,eE780
	wave w01= eE780
	w01 =1240/wl

	variable nn,kelvin
	kelvin=0
	nn=0
	do
		if(nn==0)
			kelvin=4
			Display
		else
			kelvin=10*nn
		endif
		wavein=name2+num2str(kelvin)+"d"
		waveout=name2+num2str(kelvin)+"e"
		print wavein
		duplicate $wavein, $waveout
			wave win = $wavein
			wave wout = $waveout
			
			pt=0
			do
				wout[pt]=5.034*wl[pt]*wl[pt]*win[pt]/1000000
				
				pt=pt+1
			while (pt<1100)
			//killwaves win
		nn=nn+1
		AppendToGraph wout vs w01
	while(nn<30)
end
//////////////////////////////////////////////////////////////////